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Abstract: 

This is the .third report of a series exploring the use of the Q programming notation to prototype a pro- 
gramming environment. This environment includes an interpreter, unparser, syntax directed editor, 
command interpreter, debugger and code generator, and supports programming in a small applicative 
language. The present report extends the interpreter, un parser, syntax directed editor, command inter- 
preter and debugger to accommodate comments (which are used both statically and dynamically) and 
conditional expressions. A running implementation of these ideas is listed in the appendices. 



1. Introduction 

Our goaJ in this series of reports* MacLennan85b, MacLennan85ci is to explore in the context of a 
very simple language the use of the Q programming notation MacLennan83, MacLennan85a to 
implement some of the tools that constitute a programming environment. 

The structure of this report is as follows: First we discuss the accommodation of comments in the 
abstract structure of the program. This demonstrates how documentation and nonprogram text can be 
incorporated into the program structure. These comments are used both statically (i.e., as commentary 
in the source code) and dynamically (i.e., to provide informative information at runtime). Second we 
introduce a conditional expression into the language. This involves no new ideas, but is essential if the 
recursive functions introduced in F^art IV are to be useful. 



Support for this research was provided by the Office of Naval Research under contract N00014-86- VVR-24092. 



2. Comments 



2.1 Requirements 

How can we include comments in our programs? In particular, how can comments be incorporated 
into the abstract program structure? The solution to this problem will indicate the solution to a more 
general problem, namely, how documentation, specifications, explanations, etc. can be related to the 
program structure. 

Our solution here is to define a new relation ‘Comment^ that is used to link a comment to any pro- 
gram node. Its properties are: 

• Com ment ( 5, E) 

5 is the comment on E 

• Degree (Comment, 2) 

• Function (Comment, expr, string) 

The following transcript is an example of creating and displaying comments: 
show 

let X = (3+ 5) 
let Y = (6^2) 

(X^ (Y-1)) j 

rem ‘"Distance” 
show 

let {Distance} 

X = (3-5) 
let Y = (6~2) 

(X. (V 1)) 

Notice that the comment “Distance” is attached to the current node (a let in this case), and that this 
alters the formatting of that node. The presumption is that the comment on a let documents the name 



defined by that let. Next we move to the inner let and attach a comment to it: 



in 



^let Y= (6-f2) 



(x-(Y-i)) : 



rem “Altitude ” 

Comments can also be attached to operator application nodes, as the following illustrate: 
in 

(X-(Y-l)) 

in 

X 

next 

(Y-l) 

rem ‘offset’' 

root 

let {Distance} 

X = (3^ 5) 
let {Altitude} 

Y = (6^2) 

(X^ {offset}(Y-l) ) j ] 

2.2 Etfitor Commands 

The rem command, which attaches a comment to a program node, is straight-forward to implement: 

*Comm and(rem) , *Argument(5) , CurrentNode ( £") , -^Comment(— ,£*) 

=?> Comment( 5,£’) . 

*Com mand(rem) , *Argument(— ), CurrentNode( E) , Comment(— .E) 

^ Displav (“node already com mented” ) . 

Note that we allow only one comment to be attached to a node. This is a debatable restriction, but it 



seems that permitting multiple comments would require some strategy for organizing them. This is left 



as an exercise for the reader. 



We also need a delete^^m command for uncommenting a node: 

*Command(delete^m) , CurrentNode( E) , *Comment(— ,£') 

=> Display(“done”) . 

*Command(delete^ein) , CurrentNode( £*) . ^Comment(— ,E) 

Display(‘‘no comment”). 

2.3 Unparsing Comments 

Unfortunately, with our present organization, most of the unparsing rules must be modified to 
incorporate comments into the un parsed program representation. Is there a way of un parsing com- 
ments without duplicating all the unparsing rules? This is left as an exercise for the reader. 

First we consider the rule for unparsing comments on operator applications. Our goal is that an 
addition node with a comment be displayed like this: 

{5}(AV Y) 

This is easily accomplished by the rule: 

Appl(F'), Op(iV,£'), Left(A',£'), Right(}?£’), "^lrnage( U,.V) , "^Image( U, U) , Comment( 5,£') 

Image(‘‘ {” ^5 (” ^ U ^ N ^ V ”, E) 

else previous Appl rule. 

The only difference from the uncommented case is the incorporation of the comment into the image. 
Un parsing comments on Vars and Cons is done in essentially the same way as those on Appls. 

Next we consider un parsing comments on blocks. The goaJ is a display of the form: 

let {5} 

= A 
B 

Again, all we have to do is provide an unparsing rule like the uncommented one, except that the 



comment is incorporated in the image: 



Block(^), BndVar(iV,^), BndVal(X,^), Bodyi^.E-), 

*Image( U ^X), *lmage( VyB), Comment(5,£’) 

Image ( 

Tabln ''NL {” ^ S 

^Tabln ''NL ^ V = ”^7 
^ NL ^ K ” 

" TabOut " TabOut, E) 

else previous rule. 

2.4 Dynamic Use of Comments 

Since a comment on a block presumably describes the purpose of the local variable, it would be con- 
venient to include this comment in the dynamic context, so that it can be displayed by the debugger. 
This is accomplished by modifying the evaluator so that the comment on a block is incorporated in the 
context (by being attached as a ‘Comment' to the context). The rule that does this is: 

Block(^), BndVar(.V,£), BndVal( , Body(5,^), *Value ( U, A’, C) , *Avail(D), Comment(5.£) 
=> Context(Z)), Binds ( D,iV, T) , Non locals( ) , Eval(5,D), Comme nt( 5, D ) 
else previous rule. 

There is no point in making comments part of the dynamic structure unless we are going to make use 
of them. For example, we can modify the debugger so that it displays any comments attached to a 
binding, so that we will know the purpose of the variable. Here is an example transcript that makes use 
of the example program shown above: 

context 

y - o {Altitude} 
out context 



X = 8 {Distance } 



This modification of the debugger is accomplished by adding the following rule: 

*Co mm an d( context) , CurrentContext( C) , Binds( C,iV, K) , Comme nt( 5, C7) 

^ Display(.V ^ string- int[ K] {” 5 E) 

else previous rule. 

The reader should try to think of other possible runtime applications of comments and other nonpro- 
gram information. 

3. Concitional Expressions 

3.1 Concrete and Abstract Syntax 

Next we introduce a conditional expression into our language. This construct will be necessary for 
effective use of the recursive functions introduced in Part IV. A conditional expression is displayed in 
the following format: 

(if B 
then T 
else F ) 

In the context of a larger program it would look like this: 

let N = (X 1) 

(if (N-O) 

then 1 

else (N ' (N 1)) ) 

Note that we will also have to extend our operator application syntax to include relational operators 
(‘= etc.): this is left as an exercise for the reader. 

The abstract structure of conditional expressions is represented by the following relations: 

• ConExfE) 



E is a conditional expression 



Degree ( Con Ex, 1) . 



• Cond(B,^) 

B is the condition of E 
Function( Cond, ConEx, expr). 

• Conseq( T,E) 

T is the consequent of E 
Function( Conseq, ConEx, expr). 

. Alt(F,£) 

F is the alternate of E 
Function( Alt, ConEx, expr). 

3.2 Ecfitor Commands 

It’s necessary to incorporate a new command into the editor so that we can create ConEx nodes. 
The rule for the ‘if command is routine: 

*Comm and(if) , *CurrentNode ( E") , *Undef(F^), *A vail( B, 7,F) 

ConEx(£’), Cond(B,£'), Conseq( r,^) , Alt(F,£’), 

Undef(B), Undef( 7), Undef(F), CurrentNode( B) . 

The regularity of all these node creation commands (if, let, var. etc.) suggests that there ought to be a 
regular way of handling them. This too is left as an exercise for the reader. 

The editor must also be augmented with rules for the in, out, next and prev commands on ConEx 
nodes. The reader should also consider how this proliferation of rules can be avoided. A typical rule is 
the in rule: 

*Command(in) . *Curre ntNode( B) . ConEx(B), Cond(B,B) 



CurrentNode( B) . Comm and( show) . 



3.3 Unparsing 



As usual we have two rules: analysis and synthesis. The analysis rule is: 

*Unparse( £^) . ConEx(£’), Cond(^,£'), Conseq( r,E) , Alt(F,E) 

Unparse(B), Unparse(r), Unparse(F). 

The synthesis rule gathers the images of the subexpressions and assembles them into an image for the 
conditional: 

ConEx(E), Cond(B.E), Conseq(T,E), Alt(F,E), *lmage(U.B), *Image(T,r), *Image( 

Image( Tabln "XL 
“(if ” " U "XL " 

“ then ” " V" "XL " 

“ else ” " IL - 

TabOut "XL, E). 

A rule for commented ConEx nodes is left as an exercise for the reader. 

3.4 Evaluation 

Evaluation of the conditional node requires tw'o separate analysis /synthesis steps. The first analysis 
rule requests evaluation of the condition: 

*Eval(E,C), ConEx(E), Cond(B,E) 

Eval(B,C). 

When a value is returned for the condition, either the consequent or the alternate must be evaluated 
(depending on whether or not the condition was true). Thus the synthesis pass for the condition is 
combined with the analysis pass for either the consequent or alternate. Evaluation of the consequent 
when the condition is true is handled by this rule: 

ConEx(E), Cond(B,E), Conseq( T, E) , *Value ( true. /i, C) 

Eval(7,C). 



- 8 - 



Evaluation of the alternate is analogous. 



The final synthesis pass occurs when a value arrives at either the consequent or alternate: this value 
is attached to the conditional itself. The case where the value arrives at the consequent is handled by: 

ConEx(£'), Conseq( r.E*) , *Value( V', 7, C) 

=> Value(V,E,C). 

The alternate case is analogous. 
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APPENDIX A: Prototyp>e Programming Environment 



The following is a loadable input file for the prototype programming environment described in this 
report. It is accepted by the McArthur interpreter [ McArthur84 ' , which differs in a few details from 
the n notation used in this report (see MacLe nnan84] ) . Also note that the declarations have been 
reordered somewhat from that in previous reports in this series; the new order better reflects the 
object-oriented design. A transcript of a test execution of this environment is listed in Apf>endix B. 

! 

! PI-3 

» 

! A simple programming environment for an arithmetic 
! expression language, including interpreter, unparser, 

! syntax directed editor and debugger. 

I 

! Features included in the language: 

1 - Constants 

! - Arithmetic Operations 

I - Statically Nested Declarations 

I - Comments 

1 - Conditional Expressions 

! PERVASIVE RELATIONS 

! Evaluation 

newrelation {’Tlval”}: 
newrelation {’Check"}; 
newrelation {"\'alue"}; 
newrelation {"Meaning"}; 



-I 1- 



newrelation {’^Explanation”}; 



! Contexts and Bindings 

newrelation {”Context”}; 
newrelation {”Binds”}; 
newrelation {”N on local”}: 
newrelation {”Looking”}. 

! Un parsing 

newrelation {”L' nparse”}: 
newrelation {”lmage”}; 
newrelation {’Template”}; 

! Comments 

newrelation {’’Comment”}. 

! Format Control Constants 
define {root, ”\L”, ” 

define {root. ’Tabln”. ””}; 
define {root. ’TabOut”, ””}; 

’ Logical Constants 

define {root, ”t,rue”, 1}; 
define {root, "false”, ()}. 



! COMMAND INTERPRETER 



! Command Interpreter Relations 

newrelation {’'Command"}; 
newrelation {"Argument"}; 
newrelation {'Root"}; 
newrelation {"Undef"}; 
newrelation {'Curre ntNode"}; 
newrelation {"Curre ntCon text"}; 
newrelation {"SuspendedEval"}; 

newrelation {"Break"}; 
newrelation {'EvalPending"}; 
newrelation {"Sho wPending"}; 
newrelation {"Com m and Pending"}; 
newrelation {'CreateRoot"}; 
newrelation {'Create Context"}. 

define {root, "ComIntRules", < < 

! evaluate Command 

if *Comm and( "evaluate") . Curre ntNode( E) , CurrentCon text( C) 

-> Eval(E.C), EvalPending( E) , CommajidPending( E) ; 

if *Value( V,E,C) , *EvalPending( E) , *CommandPending(— ) 

-> displavTi {V}; 

! Error Handler 

if "^Break( M ,E.C) , ^Com mandPending( ) , "^EvalPending( R) . *SuspendedEval( ) 
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-> disp!ayn{M}, SuspendedEval(R) , CurrentNode( E) , CurrentContext(C) ; 

! resume Command 

if *Command( *Vesume") , SuspendedEval( Nil) 

-> displayn{”no evaluation in progress”} 

else if *Com m and ( "resume”) , CurrentNode( E) , CurrentContext(C) , *SuspendedEval(R) 
-> Eval(E,C), EvalPending(R) , SuspendedEval(Nil) ; 

! return Command 

if "^Comm and( *Val”) . *Argument(\") , CurrentNode( E) 

-> Value (V, E,C) ; 

! show Command 

if *Comm and( '’sh ow”) , CurrentNode( E) 

-> Unparse(E), ShowPending( E) , CommandPending( E) ; 

if *Image( S,E) , *Show Pendin g( E) , "^CommandPending(— ) 

-> displayn{S}; 

! abort Command 

if Command( "abort”) , *Eval(E,C) -> ; 
if Co mm and ( "abort") , * Value ( V, E,C) -> ; 
if Command( "abort") , *Check ( V,E,C) -> ; 
if Command ( "abort") , *Nonlocal( C, D ) -> ; 
if Command! "abort") , *Bmds ( D , N . V ) - ■ ; 



if *Co mm and ( "abort ") , 



^EvaI(E,C), '^Value(V,E,C), “^Noniocal(C, D ) , 'Binds ( D ,x\,V) , 
*SuspendedEval(— ), *CurrentContext(— ) 

-> CurrentContext(Nil) , SuspendedEval(Nil), displayn {’’aborted”}; 
! done Command 



if *Command( ’’done ”) -> dispIavn{'PI system stopped”}; 



! Syntax Directed Editing 



if *Co mm and ( ’’delete") , CurrentNode(E) , Undef(E) 

-> displayn ( ’’already deleted") ; 

! begin Command 

if *Comm and( "begin") , *CurrentNode( Q) 

-> CreateRoot(newobj{}) , CommandPending(Nil) ; 

if *CreateRoot( E) , *CommandPending(— ) 

-> Root(E). Undef(E). Current\ode( E); 

! root Commajid 

if "^Comm and( "root") , '*‘CurrentNode( Q) , Root(E) 

-> CurrentNode( E) , Command( ’^how") ; 

! Debugging Commands 
! context Commajid 

if *Comm and( "context") . CurrentContext( C) , Binds( C,N , V) , Comment(S,C) 
-> displayn ( N ’’ = ’’ ^ int^tr Vl ^ " {" ^ S + ’’}" ) 

else if "^Command( "context"), Curre ntContext(C) , Binds (C,N,V) 

-> displayn( N - "- ’’ ^ int str! V| ) 

else if *C’om m and ( "con text") 

- displayn("no bindings"). 

! out context Command 

if *Command( "out context"). *CurrentConte\t( D ) , Nonlocal( C,D ) 
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-> CurrentCon text(C) , Command( ’’context”) 



else if *Com mand( ”out_context”) 

-> displayn ( ”at outermost level") ; 

! in_context Command 

if *Command( ’^n_context") , *CurrentContext(C) , Nonlocal(C,D) 
-> CurrentCon text(D ) , Com mand( "context") 

else if *Command( "in_context") 

-> displavTi ( "at innermost level"); 

! alter Commajid 

if "^Comm and ( "alter") , *Argum ent(U ) , 

Curre nt Con text ( C) , ’’'Binds (C,N,V) 

-> Binds ( C,N ,U ) , Co mm and ( "context") 

else if *Com m and ( "alter") , *Argument(Q) 

-> displa>7i("no binding"); 

> > }• 

act {ComIntRules}. 
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! COMMENTS 



define {root, ’TlemRules”, < < 

! rem Command 

if *Command( ’Vem") , *Argument(S) , CurrentNode( E) , "Comment(— ,E) 
-> Comment( S,E) ; 

if *Command( 'Vem") , *Argument(— ), CurrentNode(E) , Comment(— ,E) 
-> displayn( "node already commented") ; 

! delete _rem Command 

if "^Comm and ( "dele te_rem") , CurrentNode( E) , "'Comment(“ ,E) 

-> displayn("done") ; 

if *Command( "delete_rem") , CurrentNode( E) , *Comment(— ,E) 

-> displayn ( "no comment") ; 

> > }• 

act {RemRules}. 

! INCOMPLETE PROGRAM 
1 Tables 

Explanation ( '^incomplete program", ["error", O] ) . 
define {root, "IncomProgRules", < < 

! Evaluation 

if *Eval( PLC) , lndef(P]), "^C'urre ntNode ( Q) 

- Break( "Incomplete", E, C); 



! Un parsing 



if *Unparse(E), Undef(E) 
-> Image ("< expr> ”, E); 
> > }. 



act {IncomProgRules}. 



! CONSTANT NODES 



! Relations 

newrelation {'Con"}; 
newrelation {"Litval"}. 

! Functions 

fn Id [x] : X. 

' Tables 

Meaning ( Id, "lit") . 

Template (int^tr, "lit"). 

define (root, 'ConRules", < < 

! Evaluation 

if *Eval(e,c), Con(e), Litval(v,e), Meaning(f, "lit") 

- > Value (fj V' , e, c) ; 

! In parsing 

if nparse (e) , Con(e), Litval(v,e), Template(f, "lit"), Comment(s,e) 

- • lmage( f v ^ ^ s "}", e) 

else if *Unparse(e), Con(e), Litval(v,e), Templat^(f, "lit") 

- - Image( f v , e ) ; 

! ^ ('ommand 

if ^Command("#") , * A rgume nt( V) . Islnt V , CurrentNode( E) . *Undef(E) 
. ^ Con(E). Litval(V,E); 



if *Command( Argument( V) , Curre ntNode (E) , ^Undef(E) 
-> displayn (’’defined node”) ; 



! delete Command 



if *Command(”delete”) , CurrentNode ( E) , *Con(E), *Litval(V,E) 
-> Undef(E), Com maiid( ’’show”) ; 

>>}. 



act {ConRules}. 



! VARIABLE NODES 



! Relations 

newrelation {'Var*'}; 
newreiation {'Ident”}. 

define {root, ’VarRuies ”, < < 

! Evaluation 

if *Eval(E.C), Var(E), Ident(N,E) 

-> Looking(N,C, E,C) : 

if "^Looking! N,C,E,D) , Binds(C,N.V) 

-> Value (V,E,D) 

else if *Lookin g( N,C, E,D ) , Nonlocal(Cprime,C) 

-> Looking(N,Cprime,E,D ) 

else if '*'Looking( N,C,E.D ) , *Currentx\ode (Q) , *Curre ntContext(Q) 
-> Break( 'L’n bound: N, E, D); 

1 I nparsing 

if *Unparse(E), Var(E), Ident(N.E). Com ment(S, E) 

- ^ Image! ^ ^ ^ E) 

else if *Unparse(E), Var(E), Ident(N,E) 

- ' Image! N,E) ' 

’ var CA)rnmand 

if *('ommand ! ’Var") , *Argurnent!N) , Curre ntNode ! E) . *rndef!E) 

- ' Var!E), Ident!N.E); 



! delete Command 



if *Command( "delete’*) . CurrentNode( E) , *Var(E), *Ident(N,E) 
-> Undef(E), Command( "show") ; 

>>}• 



act {VarRules}. 



! APPLICATION NODES 



! Relations 

newrelation {"Appl"}; 
newrelation {'Op”}; 
newrelation {"Left”}; 
newrelation ("Right"}; 

newrelation ("Create A ppl"}. 

! Evaluation Functions 

fn Sum ! x,y ; : x ^ y: 
fn Dif x,yj: x - y; 
fn Product x,y): x "" y; 
fn Quotient x,y : 

if y = 0 -> "error", 1 
else X y; 

fn Equal x,y]: if x = y - > true else false; 

fn IsErrorcode w : 

if “IsListfw: w = Nil -> Nil 

else first w| = "error"; 

’ Unparsing Functions 

fn upSum x,y •- "(" ^ x -i- " + y ^ ") "; 

fn upDif x,yj; ^ x ^ "- "4 y ^ ") "; 

fn upProd x.y ; "( " - x ^ "x " ^ y ^ ") "; 

fn upQuot |x,y ; "(" x 4 " / ” - y ^ 

fn upEqua x,yl; "( " ^ x i ^ y ^ ") ". 
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! Evaluation Tables 



Meaning (Sum, ”); 

Meaning (Dif, 

Meaning (Product, 'be"); 

Meaning (Quotient, ; 

Meaning (Equal, "= ") . 

! Unparsing Tables 

Template (upSum, ") ; 

Template (upDif, 

Template (upProd, "x"); 

Template (upQuot, 

Template (upEqua, "= ") . 

! Other Tables 

Explanation ("division by zero", ["error", l]). 
define {root, "AppLRules", < < 

! Evaluation 

if *Eval(e,c), Appl(e), Left(x.e), Right(y,e) 

-> Eval(x,c), Eval(y,c); 

if * Value ( u,x,c) , *VaIue ( v,y ,c ) , 

Appl(e), Op(n,e), Left(x,e), Right(y,e), Meaning(f, n) 
-> Check(f,u,v., e. c); 

if '''Check(w, e, c), 'IsErrorcode i w 
- ’ Value ( w, e . c) : 
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if "^Check(w, e, c), IsErrorcodejw) , Explanation(s, w), *CurrentNode(q) 
-> Break(s, e, c) ; 

! Unparsing 

if *Unparse(e), Appl(e), Left(x,e), Right(y,e) 

-> U n parse (x), Unparse (y); 

! Unparsing Comments on Applications 

if Appl(E), Op(N,E), Left(X,E), Right(Y,E), 

*Image(U.X), ’^Im age ( \', Y) , Comment(S.E) 

-> Image( " ^ S ^ ”} (" ^ U - N - V ^ ") •' E) 

> 

else if *lmage(u,x), *Image(v,y), 

Appl(e), Op(n,e), Left(x,e), Right(y,e), Template(f, n) 

-> Image(f u, vj , e) ; 

! ^ X , \ = Commands 

if *Comm and(op) , member op, ”, '‘x”, ”] j , 

"CurrentNode(E), *Undef(E) 

-> CommandPending(E) , Create A ppl(op, E, newobj{}, newobj{}); 

if ^Create A ppI(op,E, X, Y) , *Comm andPending( E) 

. ' {Appl(E). Op(op,E), Left(X,E), Right(Y,E), 

Undef(X), Undef(Y), CurrentNode(X); 

Com m and ( ’’show”) }; 

1 delete Command 

if "^Command! ’’delete”) , CiirrentXode( p]) , 

UVppl(E), *Op(N,E), *Left(X,E), Right(Y,E) 
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-> Undef(E), Command( ’*show”) ; 



! in Command 

if *Comm and( ’In”) , *CurrentNode ( E) , Left(X,E) 

-> CurrentNode (X) , Command( ’’show") ; 

! out Command 

if *Comm and( ’’out”) , *CurrentNode( X) , Left(X,E) 

-> CurrentNode( E) , Command( ”show’*) ; 

if '’'Comm and ( ’’out”) , ^CurrentNode ( Y) , Right(Y,E) 

-> CurrentNode ( E) , Command( ”show”) ; 

1 next Command 

if '’'Command( ”next”) , *CurrentNode(X) , Left(X,E), Right(Y,E) 
-> CurrentNode( Y) , Com mand( ”show”) ; 

’ prev Command 

if *Command( ”prev”) , ^CurrentNode ( Y) , Right(Y,E), Left(X,E) 
-> CurrentNode(X) , Command( ”show”) ; 

>>}. 

act{A pplRuies}. 
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! BLOCK 



! Relations 

newrelation {’Block”}; 
newrelation {”BndVar”}; 
newrelation {”BndVal”}; 
newrelation {'Body”}; 

newrelation {"Create Let”}. 

define {root, ’BlockRules”, < < 

! Evaluation 

if *Eval(E,C), Block! E), BndVal(X,E) 

-> Eval(X,C); 

if Block(E), BndVar(X.E), BndVal(X,E), Body(B.E), 

*Value(V.X,C), Comment(S,E) 

- > Cre ale Context (newobj{}, N, \\ C, B, S) 

e^se if Block(E). BndVar(N,E), BndVal(X,E), Body ( B,E) , 

"Value(V,X,C) 

-> CreateContext (newobj{}, N, \ , C, B) ; 

if *CreateContext(D.N, V,C,B,S) -> CreateContext( D,N ,\',C,B), Com ment( S, D ) 

if *CreateContext(D,N,V.C,B) 

Context(D), Binds( D ,N, V ) , Nonlocal(C,D ) , Eval(B.D): 

if Block (E). B(^dy(B.E), 

*Value(V,B,D), *Nonlocal(C,D). *Binds( D ,N , W) , "Context(D) 

- - Value(V,E,C); 
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! Unparsing 



if *Unparse(E), Block(E), BndVal(X,E), Body(B,E) 

-> Unparse(X) , Unparse(B) ; 

! Unparsing comments on blocks 

if Block(E), BndVar(N,E), BndVal(X,E), Body(B,E), 
*Image(U,X), *Image(V,B), Comment(S,E) 

-> lmage( 

Tabln -f NL 4- ’’ let {" -f S 4- 

- Tabln -r NL + N -r " = ” - U 

- NL ^ V - ” 1 ” 

^ TabOut TabOut, E) 

else if Block(E), BndVar(N\E), BndVal(X,E), Body(B,E), 
^Image(U,X), nmage(V,B) 

-> lmage( Tabln ^ NL 
^ " let N ^ U 

- Tabln ^ NL ^ V ^ ” ” 

^ TabOut ^ TabOut, 

E); 

! let Command 

if *Command( ”let") , *Argument( N) , *CurrentNode ( E) , *Undef(E) 
-> CommandPending( E) , CreateLet(N, E, newobj{}, newobj(}); 

if *CreateLet (N, E, X, B) , *Com mandPending( E) 

- {Block(E), BndVar(N,E). BndVal(X,E), Body(B,E), 

I ndef(X), Undef(B), CurrentNode( X) ; 

Com m and( ’’show”) }; 
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! in Command 



if "^Comm and( '^n") , *CurrentNode( E) , BndVal(X,E) 
-> CurrentNode(X) , Command( *^how") ; 

! out Command 

if *Comm and( "out") , *CurrentNode( X) , BndVal(X,E) 
-> CurrentNode( E) , Command( '^how") ; 

if *Comm and( "out") . *CurrentNode( B) , Body(B,E) 

-> CurrentNode( E) , Comm and( "show") ; 

! next Command 

if '^'Comm and( "next") . '*'CurrentNode( X ) , 
BndVal(X,E),Body(B,E) 

-> CurrentNode( B) , Comm and( ^’show") ; 

! prev Command 

if *Command( 'V>rev") , *Curren tNode( B) , 

Body(B,E), BndVal(X,E) 

- > Curre ntNode( X) , Command( "show ") ; 

> > }. 

art {Block Rules }. 



-:u)- 



! CONDITIONAL EXPRESSION NODES 



! Relations 

newrelation {'*ConEx"}; 
newrelation {'*Cond”}; 
newrelation {'*Conseq"}; 
newrelation {"Alt"}; 

newrelation {'CreateConEx"). 

define {root, "ConExRules", < < 

! Evaluation 

if *Eval(E,C), ConEx(E), Cond(B.E) 

-> Eval(B,C); 

if ConEx(E), Cond(B,E), Conseq(T,E), *Value ( true ,B,C) 

-> Eval(T,C); 

if ConEx(E), Cond(B,E), Alt(F,E), *Value(false,B,C) 

-> Eval(F,C); 

if ConEx(E), Conseq(T,E), *Value( V,T,C) 

-> Value(V,E,C); 

if ConEx(E), Alt(F,E), *Value( V,F,C) 

-> Value(V,E,C); 

! Un parsing 

if ""Unparse( E) , ConEx(E), Cond(RE), Conseq(T.E), Alt(F,E) 
- - F n parse (B), Unparse(T), Unparse (F'); 
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if ConEx(E), Cond(B,E), Conseq(T,E), Alt(F,E), 

*Image(U,B)5 *Irriage ( V,T) , *Image(W,F) 

-> Image( Tabln — NL ^ 

"( If ” ^ U - NL - 
’* then " -h V ^ NL -i- 
"else W - '*)'• + 

TabOut ^ NL, E); 

! Editing 

! if Comm and 

if *Command( '*if”) , *CurrentNode ( E) , *Undef(E) 

-> CommandPending( E) , CreateCon Ex( E, newo bj{}, ne wo bj{}, ne w'obj{}) 

if *CreateCon Ex( E,B«T,F) , *CommandPending( E) 

-> {ConEx(E), Cond(B,E), Conseq(T,E), Alt(F,E). 

Undef(B), Undef(T), Undef(F), Curre ntNode ( B) ; 

Com m and ( "show") }; 

! in Command 

if "^Comm and ( ’*in") , *CurrentNode( E) , ConEx(E), Cond(B,E) 

-> Curre ntNode ( B) , Comm and( ’fshow") ; 

' out (^ommand 

if *Command("out"), ’^Curre ntNode ( B) , Cond(B,E), ConEx(E) 

- - Curre ntNode ( E) , Com rn and ( "show") ; 

if *(^omm and( "out") , ^Curre ntNode ( T) . Conseq(T.E), ConEx(E) 

-> Curre ntNode ( E) . Co mm and ( "show") ; 
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if ’^Command( ’but”) , *CurrentNode ( F) , Alt(F,E), ConEx(E) 

-> CurrentNode( E) , Command( ’!show”) ; 

! next Command 

if *Command( ”next”) , *CurrentNode(B) , Cond(B,E), Conseq(T,E) 
-> CurrentNode (T) , Command( ’!show”) ; 

if *Command(”next”) , *CurrentNode(T) , Conseq(T,E), Alt(F,E) 

-> CurrentNode(F) , Command( ’!show") ; 

! prev Command 

if *Command( ”prev”) , *CurrentNode(F) , Alt(F,E), Conseq(T,E) 

-> CurrentNode (T) , Command( *!show”) ; 

if *Command( ”prev”) , *CurrentIVode(T) , Conseq(T,E), Cond(B,E) 
-> CurrentNode(B) , Comm and( ’!show”) ; 

>>}■ 

act {ConExRules}. 
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! TEST DRIVER 



! Relations 

newrelation {”Script"}; 
newrelation {’Test"}. 

! Monadic Command List 

define (root, ’MonadicComm ands", 

’Val", "let", ’Var", "alter", ’Vem"j}. 

define {root, ’TestRules", < < 

! Script Sequencer 

if *Script( A ,\il) , 'Command(— ), '^Com mandPendin g(— ) 

-> A( "Script completed") 

else if *Script( A,L) , ^Command(— ), 'CommcindPending(— ), 
member first} Lj, MonadicCommandsi 
-> { display {"... "}; 

display {first rest Ljj}; 
displayn {" " ^ first |L }; 

Com m and ( first I L j ) , Argume n t( firsti rest L j ) : 

Script(A, rest, rest L| j ) } 

else if '*'Script( A ,L) , 

'Command( - ), ‘Comm andPending(— ) 

{ displayn {" .. " - first L }; 

C'om man d( first L ): 



Script(A, rest L ) }; 



! Test Scripts 



if *Test( A, 1) -> { 

Script{[ 

"begin", ’Vem", ’Distance", "let", "X","+ ","#",3, "next ","#",5, "out", "next", 
’Vem", "Altitude", ’let", 6, "next", "#",2, "out", "next", 

", ’Var", "X ", "ne xt ", 'Ve m ", "offse t", "/", ’Var", "Y", "ne xt ", 1 , 

’Voot", "evaluate"!}; 

A( 'Test done") ; 



if *Test(A,2) -> { 

Scriptll "in", "next", "in", "next", "in", "next", "in ", "next", 
"delete", "rem ", "error! ", "t^", 0, "root", "evaluate"] }; 

A ( 'Test done ") ; 

}; 

if *Test(A,3) -> { 

Script{( ’’context", "out_con text", "alter", 7, 

"in_context", "out_con text","out_cont«xt", "abort", ’%how" }; 
A ( 'Te 't done ") ; 

}; 

if *Test( A ,4) - > { 

Script}! "delete ",'T","= ", 'Var", "Y", "next", "#",0, "out", "next", 
1, "next","-", 'Var", "X", "next", "#",l,'Voot", "evaluate"]}; 
A ('Test done"); 

I 



} 



act {TestRules}. 



! Initialize Data Structures 

CurrentNode( Nil) . 

CurrentCon text (Nil) . 
SuspendedEval(Nil) . 
displa>7i{'PI-3 System loaded'*}. 



APPENDIX B: Transcript of H Session 



The following is a transcript of an H session illustrating the operation of the prototype programming 
environment shown in Appendix A. The assertion ‘Script {testscnpt}’ causes the commands in 
testscript to be executed in order. The nth testscript is executed by ‘Test{n}’. Each command is 
printed on a separate line, followed by whatever output is generated by the programming environment. 
This transcript was produced by the McArthur interpreter [ McArthur84' . 

% omega 

OMEGA-1 11/30/84 

Use Cntl-D or exit{} to quit. 

For help, enter help{’'?"}. 

To report a bug, enter Bugs{}. 
newrelation rule activated. 

> do{’PI3.rul’»}. 

Pl-3 System loaded 

OK 

> {Test{l}; Test {2}; Test {3}; Test{4}; Scriptj' "done }}. 

... begin 

... Distance rem 
... X let 

< expr> 

... + 

< expr > 

... # 

... next 
expr;- 



... 5 ^ 



... out 



(3 + 5 ) 

... next 

< expr> 

... Altitude rem 
... Y let 

< expr> 

... / 

< expr> 

... 6 # 

... next 

< expr> 

... 2 # 

... out 

(6 / 2 ) 

. next 

< expr> 

... -f 

< expr '^ 

... X var 
... next 

<' expr > 

... offset rem 

< expr^ 

... Y var 
... next 



< expr 



... root 



I let {Distance } 



X = (3 + 5) 



I let {Altitude} 

Y = (6 / 2) 

(X- {offset} (Y/1) ) 1 1 
... evaluate 
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... in 



(3 ^ 5) 

... next 

[let {Altitude} 

Y- (6/2) 

(X ^ {offset} (Y/1) ) 



... in 

(6 / 2 ) 

... next 

(X - .{offset} (Y/1) ) 



... in 
X 



... next 
{offset} (Y/1) 
... in 






... next 



1 



... delete 



< expr> 



... error! rem 

... 0 # 

... root 

let {Distance } 

X = ( 2 + 5 ) 

[let {Altitude} 

Y = (6 / 2) 

(X ^ {offset} (Y/0 {error!}) ) ] 1 
. evaluate 
division by zero 
... context 
Y = 3 {Altitude} 

... out^context 
X = 8 {Distance} 

... 7 alter 

X = 7 {Distance} 

... in_context 
^ = 3 {Altitude} 

... out_context 
X = 7 {Distance} 

... out_context 
no bindings 
... abort 
aborted 
... show 

{offset} (Y 0 {error!}) 

.. delete 
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< expr> 



... if 

< expr> 

< expr> 

... Y var 
... next 

< expr> 

... 0 # 

... out 

(Y= 0) 

... ne.xt 

< expr> 

... 1 # 

... next 

< expr> 

< expr> 

... X var 
... next 

< e.xpr > 

1 

... 1 7>r 

... root 

let {Distance } 
X = (3 ^ 5) 
let {A Ititude } 

Y = (6 / 2) 

(X - 



(If (Y = 0) 
then 1 



else (X - 1) ) 



... evaluate 



15 



... done 

PI system stopped 
OK 

> exit{). 



Goodbye. 
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